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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
RIGHTS RESERVED. 


S SOFTWARE a pyeni ance mee A LICENSE AND MAY BE USED AND COPIED 
Y IN ACCORDANCE WITH THE TERMS OF SUCH bICENSe AND WITH THE 
LUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

EREOF MAY 4 BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Componation NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; Facility: 
; Abstract: 

Causes eof mark and dirty buffers for non-shared files 
to be written to disk. 
If a global buffer section is found for a file, the yee count 
is Jeltenented, and if we are last accessor, all buffer 
locks in the section are released. 

; ; Environment: 
Kernel or exec mode, asynchronous process deletion. 

: Author: 


; Leo Laverdure creation date: 21-Feb-1978 
; Modified By: | 
V03-026 JEJ0035 J E Johnson 08-May-1984 | 
| 


Another $GETLKIW oreblous now Look at the proper byte 
- the stack to find the currently granted mode of the 


OOCCCCOCOOCOOOCOCOoOOOoOoCoOooOoOoSooo 
pT ne nn) ene nn en ne ee ee ee ee ee we ww nla lola lolol ololeolalolelolelolelolololeolololelolelolololol oo) 


ock. 
v03-025 $HZ0015 Stephen H. Zalewski, 04-May-1984 
Routine rm$unmap_gbl now set up its own registers, so | 


remove register Setup from last chance. 
VO3-024 JEJ0024 J E Johnson 09-Apr-1986 | 
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v03-023 


v03-022 


v03-021 


v03-020 


v03-019 


v03-018 


v03-017 


v03-016 


v03-015 


v03-014 


v03-013 


v03-012 


v03-011 


16-SEP-1984 01:20:35 VAX/VMS Macro v04-00 Page 
et 95:39:03 RMS .SRCIRMSOLSTCH.MAR; 1 . 
Fix broken argument pointer in $GETLKIW call. Also 
do not bugcheck if SGETLKIW fails with IVLOCKID as 
the previous $DEQ had killed a new lock before it 
completed. 
bep00ds Donald G. Blair 09-Mar-1984 


Allocate full-length fib to support access mode 
protected files. 


SHZ0014 Stephen H. Zalewski, 22-Feb-1984 
o not do write the file header characteristics of a file 
that is not accessed. 


tee th Stephen H. Zalewski 06-Dec-1983 
Use FIL error code rT SGETLKIW fails. Also, do not attempt 


to wees. 8 plese. buffer section if section is not accessible. 


This cou appen, if process was in RMSOCLOSE, had yrncgoes 
the section, but had not dequeued its lock on the globa 
section yet, and a $STOP was issued on the process. 


$HZ0012 hen H. Zalewski 10-Aug-1983 
Change the way the *eBsB lock is obtained. 
$HZ0011 Stephen H. Zalewski 04-Aug-1983 


Fix broken branch. Also make sure that the parent lock 
S specified when taking out the global section lock. 


su 0010 Stephen H. Zalewski 02-Aug-1983 

If oe" buffers are present, disassociate en global 
section before hogy ey the EX lock on GBSB. Als so, do 
not attempt to get EX lock on global buffer section if 
we already have it. 


$HZ0009 Stephen H. Zalewski 28-Jul-1983 
Add support for cluster global buffers. 

$HZ0008 Stephen H. Zalewski 26-Jun-1983 
Fix bad branch. 

$HZ0007 Stephen H. Zalewski 22-Jun-1983 
Fix broken instruction. 

$HZ0006 Stephen H. Zalewski 26-Apr-1983 


Write out the file header and current bdb (if possible) 
Ter non-shared files. 


peets? agit hy W. Horn 24-Nov-1982 
Mak of IFB/IRB table from 
IMPSL CONTPERSEG'S Lenteed ro IMP$C_ENTPERSEG. 


KBT0341 Keith B. Thompson 20-Sep-1982 
Rewrite 
SNZ0005 Stephen H. Zalewski, 10-Sep-1982 22:05 


Remove all reterences to SFD, SIFB and FRB structures as they 
no longer exist. 


ct CC CC CC LL LC A i 


ephen H. Zalewski, 7-Sep-1982 22:28 
corrupt GBD found in global buffer section force a bugcheck 


a 1 
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1984 01:20:35 VAX/VMS Macro V04-00 Page 3 
1984 95:39:83 RMS.SRCIRMSOLSTCH.MAR; 1 . (1) 
v03-010 porous Step 
nstead of simply fixing it. Self-relative queue instructions 
should prevent corruption. This code that checks for corrupt 
GBDs will be REMOVED at a future date. 
| 


| 


7 
Fix branch that caused process to attempt to deallocate a lock 
on a global buffer section when it did not own a lock. 


v03-009 $HZ0003 Stephen H. Zalewski, 6-Sep-1982 19:52. 
If stream has global buffers, dequeue lock on global buffer 
section, and give back space used for GBSB. 


v03-008 KBT0184 Keith B. Thompson 23-Aug-1982 
Reorganize psects 


OCOOCQCooooooooooooQooooooo 
SOoooCooooooQooooooooooooo 
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v03-007 KBT0095 Keith B. Thompson 19-Jul-1982 
Stuff IFAB into R9 when calling TAKE_SIFAB1 
V03-006 TMKOOO1 Todd M, Kayz 02-Jul-1982 
Deleted SNRPDEF. RMS cluster solution for next record 
positioning eliminates the NRP List, and the corresponding 
000 symbols. 
0000 V03-005 KDM0002 Kathleen D. Morse 28-Jun-1982 
444 Added S$PCBDEF. 
0000 v03-004 $HZ0002 Stephen H. Zalewski, 11-Jun-1982 12:33 
Fix misspelling of SFD$B_FRBFLGS. 
v03-003 $HZ0001 Stephen H. Zalewski, 88-Jun-1982 16:32 
464 Before releasing SIFB, clear the PID in the temp FRB. 
0000 Set flag saying are in kernel mode just before we release 
sit SFD so that if we stall, we stall correctly. 
0000 -- 
0000 
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133 -SBTTL DECLARATIONS 
133 ; 
158 ; Include Files: 
000 100 
000 161 SATRDEF ; File attribute code defintions 
4 16¢ rete a} 3 rms buffer descriptor block definitions 
00 164 $F IBDEF 3; file information block definitions 
00 165 SGBDDEF ; global buffer descriptors 
$88 166 SGBHDEF ; global buffer header 
0 16 $SGBPBDEF 3 Br opet buffer pointer blocks 
0000 168 $GBSBDEF ; Global buffer synchronization block defini 
0000 169 SIFBDEF 3 rms ifab definitions 
0000 170 SIMPDEF 3 rms impure area definitions 
0000 171 SIODEF 3 gio function code definitions 
0000 ive SIRBDEF 3 rms irab definitions 
0000 17 SLCKDEF 3; Lock manger call definitions 
174 SLKIDEF 3; SGETLKI definitions 
175 SPSLDEF 3; psl bit definitions 
178 othe : qio parameter definitions 
0000 178 $SSDEF 3 sytem status code definitions 
0000 179 


a 
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v04-000 RMSLAST_CHANCE = Clean up write accessed 5-SEP-1984 16:25:02 [CRMS.SRCIJRMSOLSTCH.MAR; 1 (3) | 
-SBTTL RMSLAST_CHANCE = Clean up write accessed non-shared disk files | 
ve 

RMSS$LAST_CHANCE * 


this routine implements the ‘‘abort rms i/o'' rms run down option 
png OF it is called during asynchronous process deletion to 
allow RMS32 to write out the contents of dirty buffers and record 
the eof mark for sequential file org. disk files that are write accessed. | 
because this routine's being called from kernel mode ast level violates 

rms synchronization and interlocking mechanisms, it is not guaranteed | 
to succeed in writing out the file correctly. it will do as good a | 
job as possible and not fault. 


the image and process ifab tables are scanned for files requiring 

Mees if any are found the appropriate buffer writing and or 

file closing is performed. there is no attempt to clean up the : 
rms data base. in fact, the only rms impure data written is the rearranging 
1 Bagg: file attributes. there should be no more calls to rms for 

this process. 


any errors which occur are ignored, as there is no place to report 
them in any case. in fact, this routine is almost paranoid about 
checking the validity and accessibility of the rms structures. | 
this is required because this code is entered via kernel ast, which 
may have interrupted rms running in exec mode, thus leaving the 


00 rms structures in unknown states. because of this, a number of 
i464 problems exist, some of which are: | 
0000 1. the current vbn may have been decremented already | 
0000 in the ‘'buffer dirty but not valid’ case, thus causing | 
one block too few to be written. 
0000 2. a record being wpeeree in a buffer may only be partially 
0000 moved into that 


uffer, thus erst ing a mixture of old and 
new data. the same problem exists fo 
spanning block boundaries. 
3. i/o completion on mailboxes and magtape, as well as other 
file organizations may not be finished properly, possibly 
leading to file corruption. 


r updates on records 


NOTE: This routine should never call any normal RMS (RM$) routines. 
Calling sequence: 
BRW RMSLAST_CHANCE ; ( from SYS$RMSRUNDWN (arg2=2) ) 


May be called from either exec or kernel mode. 
Does a RET when done. 


Input Parameters: 
R7 caller's mode 
Implicit Inputs: 
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the contents of the process and image i/o segments 


. 2 
Ne?) RMS ABORT I/0 FOR PROCESS DELETE 1 mi doth 9 91:30:33 AX/VMS Macro V04-00 Page g 
v04-000 RMSLAST_CHANCE = Clean up write accessed 5=-SEP-1984 16:25:02 (CRMS.SRCIRMSOLSTCH.MAR;1 (3). 
; } 
e 33 ; Output Parameters: 
00 41 : RO-R11 are destroyed 
000 Bue; : | 
000 45 ; Implicit Outputs: 
Bob 44; none 
000 45 ; 
9000 46 ; Completion Codes: | 
000 47; 
0000 248; RMS$_NORMAL 
9900 349 po | 
000 50 ; Side Effects: 
0000 251 ; Sa 
0000 526 ; see description above. 
0000 253; 
0000 254 ;-- 
0000 255 
0000 256 RMSLAST_CHANCE:: 
01 57 91 Q000 257 CMPB R7,#PSL$C_EXEC ; caller sufficiently privileged? 
16 1A 0003 258 BGTRU EXIT ; branch if not 
0005 259 
0005 260 ; 
0005 261; run down the image files 
0005 262 ; 
0005 263 : 
5B Q00000000'9F DE 0005 264 MOVAL a@#P1O$GW_IIOIMPA,R11 : get iio impure area address 
000C 265 IFNORD #1,(R11),EXIT,R7 ; branch if page not readable 
OF 10 0012 266 BSBB = RUNDWN ; do the run down 
0014 267 
0014 268 ; | 
0014 269 ; now run down process-permanent files 
0014 Srl | 
5B 0000'CB DE 0014 272 MOVAL W*PIOSGW_PIOIMPA-PIO$GW_IIOIMPA(R11),R11 ; point to process i) 
08 10 aie sft BSBB RUNDWN ; do the run down | 
50 00010001 8F DO O01B 275 EXIT: MOVL #RMS$_NORMAL ,RO ; show success | 
04 pss 5/8 RET ; back to caller | 


RMSOLSTCH 
v04-000 


we 
ow 
“i 
> 
nN 
oo 


w 

“ 
_ 
oo 


58 


Wo 
wu 
oo 
™m 
oO 
me S Oowi—ooo 


our 


owe 
VINMIOUOWOVINOIUIOO 


o-OOnwWwWo "9 


D 
RMS ABORT 1/C FOR PROCESS DELETE a bs Set 9 91:60:33 
RMSLAST_CHANCE = Clean up write accessed 5-SEP=1984 16:25:02 


Oooo 
oO 


79 
0 0 
1 
ah 
0 4 
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0023 00 
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run down subroutine: 
Checks ifab table for write-accessed, nonshared, disk files. 
If any found, write the current buffer, if dirty, and then deaccess 
the file to write the current eof mark to disk. 


Check for global buffers. If global buffers are present, decrement 
access counts and mark invalid. 


inputs: 


R11 - impure area addr 
R7 = caller's mode 


outputs: 
RO-R6, RB-R10 destroyed 


RUNDWN : 
11) ,R5 ; get ifab table addr 
(R11), R8 get # entries/seg 
Save addr next table seg on stack 
et ifab addr 
ranch if one 
keep scanning segment 
_ next segment addr 
ranch if no more 
get # entries/seg 
get segment size 
segment readable? 
; branch if yes 


(R11 
NTPERSEG(R 
NXTSEG: 


NXTENT: MOVL 
BN 
NXTSOB: 
MOVL 


E 
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v04-000 RMSLAST_CHANCE = Clean up write accessed ets Pi 6:5 :02 CRMS.SRCIRMSOLSTCH.MAR; 1 . (6) 
0049 18 ; 
8 i§ ; Found an ifab. | - 
00 9 3; Check that ifab is accessible and valid. 
00 ’ 
8 5 RDIFAB: 
0 4 IFNOWRT #IFBSC_BLN, (R10) ,NXTSOB,R7 : branch if ifab not writeable 
00 5 CMPB ss IFB$B_BID(R10) ,AIFBSC_BID ; is it really an ifab? 
00 6 BNEQ NXTSOB ; ignore if no 
00 ? CMPB  —s_ IF B$B_BLNN(R10) ,#IFBSC_BLN/4 ; at least right length? 
; ignore 

09 25 BLSSU NXTSOB if bad 

0; 
8 $ 3; Check to see if write-accessed, non-shared disk file, and ignore if not. 
00 35 BSBW CHECK_GBL_BUFFERS ; Release any global buffers. 
00 3 BBC #IFBSU_ACTESSED, (R10) ,NXTSOB : Branch if not accessed. 
00 5 BBC #IFBSVWRTACC, (R10) ,NXTSOB Branch if not write accessed. 
00 36 BBC #DEVSV-RND, IFBSL_PRIM_DEV(R10), NKTSOB Branch if not disk. 
00 37 TSTL IFBSL_SFSB_PTR(RTO) ; Is this file shared? 
00 38 BNEQ N 6 : fea. skip it. 
Ca 
4 3 ; Find irab, if one, and verify it. 
00 23 MOVL IFBSL_IRAB_LNK(R10) ,R9 ; Get irab address 
00 344 BEQL CLOSE-B ; Branch if none. 
00 345 IFNORD vanest BLN_SEQ,(R9),NXTSOB,R?7 ; branch if not readable. 
00 346 CMPB Se ty BID(R9), #IRBSC BID 2 is ts reat hy an irab? 
00 347 BNEQ NXTSO ; No, skip file. 
00 348 CMPB He by BLN(R9) ,AIRBSC_BLN_SEQ/4 ; long enough? 
8 32 BLSSU XTSOB 3; No, skip file. 


| 
RASOL SICH RMS ABORT 1/0 FOR PROCESS DELETE Verse B= 1986 01 +30: 33 AX/VMS Macro V04-0 Page 9 RMSC 
v04- RMSLAST_CHANCE = Clean up write accessed 5-SEP-1984 16: 2 CRMS. SRCIR MSOLS STCH OBAR: 1 (7) v04- 
088 26 3 
; check for va curren . ound an rty, write it. 
: heck f lid t bdb. if found and dirt ite it 
088 355 ° 
54 20 A9 0 8 B 2§ MOVL IRBSL_CURBDB(R9) ,R4 ; get bdb address 
7? 1 F 5 BEQL CLOSE-BR ; brach if no 
0091 28 IFNORD #DESC BLN, (R4) $6 °8i BR,R7 ; branch if nat readabie 
0099 35 ASSUME B8DB$B_BLN Ed BDB$8_BIB+1 
08 AC =6B1 O0099 60 CMPW BDBSe- BID(R4 ; valid bdb? 
140C 8F 999¢ 61 bast BO ee cBDBSC. _BLN/4>a8> 
03 13 OOF 6¢ BEQL CHK DRT™ ; branch if yes 
Q0A1 635 CLOSE_BR: 
004C 31 QOAI 64 RW CLOSE i extended branch to close file 
47 OA AG 01 E1 Bead 92 CHKDRT: BBC #BDBSV_DRT,BDBSB_FLGS(R4),CLOSE ; branch if buffer not dirty 
QOA9 67 ; 
OQOA9 $08 ; bdb marked dirty 
OOA9 69 ; compute size of "butter to be written. 
Be 
56 48 AG OA ce 3/6 pr etinl BOBS VA REL_VBN(R4) ,R6 3 get current vbn 
02 OA AG E8 OQOAD 374 BLBS BDBSB_ PLEStRS) 10$ ; branch if buffer valid 
56 D7 00B1 375 DECL R6 ; buffer dirty but marked invalid, 
att 2/8 decrement the current vbn data. 
0083 Ha 3 compute byte count for transfer 
0083 144 : (i.e., transfer all blocks thru current vbn or # val_vbns if greater) 
0083 Sah | 
56 B6 00B3 38) 10$: INCW R6 ; get # vbns 
49 AG «656 0=«=691 S—(00B5) Ss 383 CMPB R6,B0B$B_VAL_VBNS(R4) ; Is current greater than # valid v_ 
04 1E 00B9 384 BGEQU : branch if yes 
56 49 AG GA OO0BB 385 MOVZBL BDBS$B_VAL_VBNS(R4) ,R6 ; no - so use # valid vbns 
joer 3a | 
OOBF $65 3; check for extend of disk file | 
OOBF 390; | 
51 56 1C AG C1 OOBF 391 20$: ADDL3 BDBSL_VBN(R4),R6,R1 ; get end vbn+1 
51 D7 00C4 $08 DECL 1 3 make it end vbn | 
51 70 AA SF 00C6 9 SUBL2 IFBSL_HBK(R10),R1 ; need to extend file? 
09 15 OOCA 94 BLEQ R ; branch if not 
059 30 CC 95 BSBW EXTEND FILE ; Extend the file 
03 50 44 CF 36 BLBS RO,WRITE ; Write buffer if extend succeded. _ 
FF5D 1 BOR g o, BRW NXTSOB ; Extend failed, go to next file. 
0005 99 ; now write the buffer 
Bea 
7E 7¢ 0003 rt} WRITE: CLROQ -(SP) ; make iosb 
a. = 4 0D 40 MOVL SP,R2 } seve, iges addr 
7E 7C OODA 404 CLRO ($8) : p6 6=p5=0 
7E 34 po 405 CLRL -(SP) 3 
1C AG OD DE £06 PUSHL BpBst _VBN(R4) s <A 
7E 56 09 9C QOE1 7 ROTL -(SP) 3 =# of bytes to write 
18 AS «DD «O0ES «= 408 PUSHL BObSL. “ ADDR(R4) : pl=buffer addr 


? 
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v04- RMSLAST_CHANCE = Clean up write accessed 5-SEP-1984 16:25: RMS.SRCIJRMSOLSTCH.MAR; 1 
50 —E8 409 MOVL #10$_WRITEVBLK,RO ; i/o function code 
oor 80 bore 295 BSBY © DOAIO t do the write 
03 A EF rf POPR 


B #*M<RO,R1> + clean stack 
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RMSLAST_CHANCE = Clean up write accesse 4 16: RMS.SRCIRMSOLSTCH.MAR; 1 


++ 


Now close the file, building attribute List on stack to rewrite 
the record attributes. 


7—E 7C¢ CLOSE: CLRQ -(SP) ; make iosb 
52 SE 00 MOVL SP,R2 ; save iosb addr 
00 bD PUSHL 4&0 : end of -oett coats list fla | 
50 AA OF PUSHAL IFS$B_RFMORG(R10) write tributes from ifa 
00040016 8F odd PUSHL #<ATRSC “RECATTRA16>+<1F BSC. “FHAEND=1F BSB. RFMORG> ; length & record at. 


Put org back into rfmorg byte. 


INSV IF BSB ORGCASE R10) #IFBSV_ORG,- 
IFBSS_ORG, I _RFMORG(RTO) 


swap the words of IFBSL_HBK and IFBSL_EBK to match files-11 
on-disk structure 


ROTL #16, 1FBSL_HBK(R10), IFB$L_HBK_D R10) 
ROTL #16, 1FBS$L-EBK(R10), IFBSL_EBK_D R10) 
do the deaccess qio 
CLRL -(SP) 3; p6=0 
PUSHAL 4(SP) § + attribute List addr 
CLRQ -(SP) : p4=p3=0 
CLRQ -(SP) § <a 1=0 
MOVZBL #I10$_DEACCESS,RO 5 Seorcece function code 
BSBW poai6 ; do the deaccess 
ADDL2 #20,SP ; clean stack j 
BRW NXTSOB ; go handle next file 
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v04-000 RMSLAST_CHANCE = Clean up write accessed 5-SEP-1984 16:25:02 (CRMS.SRCIRMSOLSTCH.MAR; 1 
1 456 ;++ 
1 135 ; 
1 $28 ; extend file 
1 459 ; 
4 460 ; 
1 461 ; Inputs: 
01 106 : ri0 - IFB address | 
01 463 ; rl - # blocks required 
01 464 ; 
01 465 ; Output:: 
01 466 ; IrS$L_H K will contain the new high block. 
4 467 ; r0,r2,r5 destroyed 
1 468 ; 
0128 469 ;-- 
0128 470 
0128 471 EXTEND_FILE: 
0128 er¢ uc é 
4 4 AS ; initialize an io status block and a fib on the stack 
0128 475 
ae a Bist 476 CLRQ -($P) ; iosb | 
52 SE 00 Q12A 477 MOVL SP,R2 3; save iosb address 
012D 478 REPT <<f IBSC_LENGTH+7>/8> ; clear fib on stack 
012D 479 CLRQ (SP) 3 note: 8 clrq's faster/smaller 
me 510 tH ~ENDM s than move 
18 AE 51 DO 013D rt { MOVL R1,F IBSL_EXSZ(SP) ; set # blocks required 
16 AE 80 8F 90 0141 48 MOVB #FIBSM_EXTEND,FIBSW_EXCTL(SP) ; say it's an extend 
4F AA 90 0146 484 MOVB IFBSB_AGENT_MODE (R10) ,- ; store agent mode in fib 
2E AE 0149 485 F IBSB~AGENT MODE (SP) 
0148 486 
0148 487; 
Ries $38 ; build the fib descriptor and qio parameters on the stack and do the extend. 
0148 490 
SE DD 0148 491 PUSHL SP 3; addr of fib 
7E 40 8F 9A 0140 49 MOVZBL #FIBSC_LENGTH,-(SP) ; length of fib 
7E 7C «0151 49 CLRQ -(SP) 5 =p5=0 
7E 7C 0153 494 CLRQ -(SP) ae 
7E D4 0155 495 CL -(SP) 3 p2= : 
14 AE DF 0157 49 PUSHAL 20(SP) ; pl=fib descriptor address 
50 36 0 O1SA 49 MOV #10$_MODIFY,RO : io function code 
0015 0 015D 498 BSBW poa16 ; do the extend 
0A 50 E9 8188 499 BLBC RO,30$ : branch on failure 
16 200 
0163 501; 
016 286 3 extend complete. , 
bie 207 ; update ifab hi block field, deallocate the fib, and return 
O188 202 
20 AE C1 016 06 ADDL3 FIBSL_EXSZ2+8(SP) ,- 
4 AE 166 507 F IBSL~EXVBN+8(SP5 ,- 
O AA 168 508 He ge Sab ‘ 
70 AA D7 O16A 509 DECL IFBS$L_HBK(R10) : get # of highest allocated blk 
5E 00000050 8F CO 016D 510 30$: ADDL2 #16+<2FIBSC_LENGTH+7>&°XF8>,SP ; clean stack 
0 Os 8D om 
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RMSOLSTCH RMS ABORT 1/0 FOR PROCESS DELETE 16-SEP-1984 01:20:35 AX/VMS Macro V04-00 Page 13 | RMSC 
yo 080 RMSLAST_CHANCE = Clean up write accessed eet 6:3 :02 RMS. SRCJRMSOLSTCH.MAR; 1 : (10) | V04- 
17 4 44 | 
17 > 
1g § ; doqio subroutine to perform the qio 
17 : inputs: | 
17 § : 
17 0; R10 ifab address | 
17 13 R2 iosb address 
17 ¢ : RO io function code 
gif ? $ Pl thru P6 already on stack. 
17 5 : outputs: 
o175 6 ; . 
0175 ra RO,R1 destroyed 
0175 8 ; 
0175 9 3-- 
0175 0 
0175 1 ASSUME QIO$_ASTPRM EQ <Q10$_P1 - 4> 
0175 ¢ ASSUME QIO$_ASTADR EQ <Q10$_ASTPRM = 4> 
0175 ASSUME QIO0$"IOSB EQ <QIO$_ASTADR - 4> 
0175 4 ASSUME QI0$_FUNC EQ <QI0$_I0SB - 4> 
0175 5 ASSUME QIO$_CHAN EQ <GIO$_FUNC = 4> 
0175 6 ASSUME QIOSTEFN EG <Q10$_CHAN = 4> 
pi22 ASSUME QI10$_NARG 12 
08 BA 0175 9 DOQIO: POPR #*M<R3> ; Remove return PC from stack. 
mm. 7 Ore 0 CLRQ =(SP) ; no ast wanted 
52 DD 0179 1 PUSHL R2 ; iosb addr 
50 DD 0178 ¢ PUSHL RO : i/o function code 
7E 20 AA 3C 0170 MOVZWL IFBSW_CHNL(R10) ,-(SP) 3 i/o channel 
1E DD 0181 4 PUSHL #IMPSC_IOREFN 3; efn 
00000000'°9F OC FB 0183 5 CALLS #12,a#SYS$QI0 ; do the qio | 
1D 50 «£9 «(018A 6 BLBC = RO, 208 ; branch on failure 
50 62 00 018D 7 10$:  MOVL (R2),RO : get status from iosb 
18 12 0190 8 BNEQ 20$ 3 and branch if io really done 
0192 9 SCLREF_S #IMPS$C_IOREFN : 
62 DS 0198 0 TSTL (R2) 3 done now? 
EE 12 0190 1 BNEQ 10$ ; branch if yes 
019F ¢ SWAITFR_S #IMPSC_IOREFN : wait for f ag 
—E3 11 O1A8 BRB 10$ : go check if done 
63 +17 bey, : 20$: JMP (R3) 3; Return. 


| 


| 
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yoe~b00 RMSLAST_CHANCE = Clean up write accessed g7SEb 3B 95:39:93 RMS .SRCIRMSOLSTCH.MAR; 1 . sid V04- 
BiAe 22 p++ | 
1AC 8 3 
1AC 59 ; If global buffers are present, the BDB/GBPB List is scanned a for | 
1AC 60 ; any GBPB's currently accessed (usecnt neq 0) and the access count in the 
1AC 61 ; serevoneres GBD is decremented for those found. This does NOT guarantee | 
1AC 86 3; that GBD's will eluays be correct, but the error is that one might not 
1AC 65 ; be decremented when it should, rather than decrementing one incorrectly. 
1AC 64 ; Because of the kernel ast, extraordinary measures are necessary to guarantee } 
1AC 26? 3; correctness, and the failure to decrement the GBD use count simply makes 
O1AC ¢ ; that buffer ineligible for replacement from the cache. The window is fairly 
grat 2° 3 small and this is considered acceptable behavior. 
iG 565 3; Inputs: 
Q1AC§3=— 570 x r10 - ifb address 
Q1IAC)§3=«6—5571 ; 
O1AC 278 ; Outputs: 
O1AC§3=—« 5573 r0 - r9 destroyed 
O1IAC 3= 574 
O1IAC 3=— 5575 5 =- 
O1AC 576 CHECK_GBL_BUFFERS: 
56 0088 CA 00 OAC 577 MOVL IFBSL_GBH_PTR(R10) ,R6 3 get pointer to gbh 
01 12 O181 578 BNEQ 10$ : if one then chk gbl buffers 
05 0183 579 RSB ; Return if none. 
54 7C AA DO 01B4 580 10$: MOVL IFB$L_GBSB_PTR(R10) ,R4 3 get gbsb 
0188 581 $DEQ_S LKID = GBSBSL_LOCK_ID(R4),- ; Cancel any current lock requests | 
0188 286 FLAGS = #ALCKSM_CANCEL 
01c8 58 
01C8 584 ; : 
01C8 585 ; Build item List for $GETLKI call. 
01C8 586 ; 
01¢8 587 
7E 7C O1CB 588 CLRQ -(SP) : 4 byte buffer & 4 byte return Leng 
7E D4 OICA 589 CLRL -(SP) : End of item List. 
08 AE OF OICC 590 PUSHAL 8(SP) ; Address of return Length buffer. 
08 AE OF OCF 591 PUSHAL 8(SP) ; Address of buffer 
01010003 8F DD 01D2 238 PUSHL #<LKI$_STATE@16>+3 : Item code and buffer size. 
50 SE 00 Bice 237 MOVL SP,RO ; Get the item List pointer 
01DB 595 SGETLKIW_S EFN = #IMPSC_ASYQIOEFN,- ; Get current lock mode. | 
01DB 4596 LKIDADR = GBSB$L~LOCK_ID(R4) ,- 
p108 44 ITMLST = (RO) 
52 11 AE 9A OQIEF 599 MOVZBL LKISB_STATE_GRMODE+16(SP), R2 ; Get current lock mode into R2. 
oe 9 te 600, ADDL2 Ly 3F ; Clean up stack. 
OF 50 E8 O1F6 601 BLBS R0,15$ : Continue is successful. 
2124 8F 50 Bi O1F9 ot CMPW =s- RO, #@SS$_IVLOCKID ; The only acceptable error 
01 12 OE 6() BNEQ 126 : (caused by $DEQ above), is | 
05 0200 one RSB ; from last chance coming in 
4 605 ; before SENQ had created the 
1 606 : new lock. 
4 60: 1¢8: RMSPBUG FIL$_GETLKIFAIL ; Otherwise, SHOULD NEVER FAIL. | 
52 05 91 8 908 15$: CMPB SLCKSK EXRODE, R2 ; Do we already have EX lock? 
28 13 : rst BEQL 208 ; Yes, then do not queue for lock. 
D 611 SENQW_S EFN = #IMPSC_ASYQIOEFN,- : 
D oi¢ LKMODE = #LCKSK_EXMODE,- 3 get exclusive access to the 
D 61 PARID = G*EXESGL_SYSID_LOCK,- ; global buffer section 
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RMSOLSTCH RMS ABORT 1/0 SEP=1984 01:20:35 VAX/VMS Macro V04-00 Page 15 RMS( 
teeny RMSLAST_CHANCE = Clean up write accessed g- -SEP-1 1984 95:59:33 RMS.SRCIRMSOLSTCH.MAR; 1 a (11) v04- 
D 6 LKSB = GBSBSL_LKSB(R4),- 
D 615 RESNAM = GBSBSO~FILENAME(R4),- 
4 o18 FLAGS = #LCKSM_ SYSTEM'LCKSM., SYNCSTS!LCKSM_VALBLK 
07 50 =««EB 8 o18 BLBS no g0e 3; Continue if success. 
f 4 RMSPBUG FTIL$_ENQDEQFAIL ; WE CANNOT FAIL! 
> 621 3 
5 66 ¢ ; There is a global buffer section present. 
0235 625 ; Check if section accessible and valid. 
0 5 ? : ; Scan GBPB's and deaccess appropriate GBD's if found. 
6 © 
; 6 : 208: IFNORD #GBHSC_BLN,(R6) ,DEQLCK,R7 ; Skip over if not accessible. 
D 628 ASSUME te BID + 1> EQ *” GBHS 
1611 8F B1 ) 629 CMPW H$C BID+<GBHSC_ BLN/4a8>>,= ; check if it looks ok. 
08 A6 0241 630 att oa Tp ine) 
48 12 0263 631 BNEQ DEQLCR 3; NEQ the header is bad. 
50 40 AA DE 0245 O36 MOVAL TFBSLBDB_FLNK(R10), RO ; Get BDB queue header addr. 
51 50 DO 0249 63 MOVL RO,R1 ; Save for end test. 
024C 634 
Bsee 635 ; 
024C 636; Scan the bdb queue looking for a gbpb 
024C 637 ; 
024C os8 
024C 639 ASSUME BDBSL_FLINK EQ 0 
osec yok ASSUME BDBSL_ FLINK EQ GBPBSL_FLINK 
50 60 00 024C otg SCAN: MOVL (RO) ,RO 3: Get next element. 
51 50 01 Our 64 CMPL RO-RT : At end of List? 
30 13 0252 644 BEQL CLN ; EQL then at end. ; 
0254 645 IFNORD PCBPBSC BLN,(RO), gsc. R7 3; If not accessible, skip on. 
025A 646 ASSUME GBPBS$B B10 BDB$B_BID 
025A 647 ASSUME GBPB$B"BLN Ea epBse., BLN 
025A 648 ASSUME <GBPB$B_BID + 1>EQ B$8_BLN 
OA15 8F B81 O25A 649 #<GBPBSC_BID+<GBPBSC _BLN/GaB>>7 - ; Is it legit GSPB? | 
08 AO fF; 650 GBPBS$B_B BID(RO) 
EA 12 0260 651 BNEQ SCAN 3; NEQ then no good. 
gs 
026 654 ; Found a valid and readable GBPB. If the use count not zero, 
026 655 ; fix count on Socrenpend\oy GBD and mark GBD invalid in case the 
026 656 ; buffer was pertiat ty modified. This will force it to be read 
8 tH ; from disk when the next accessor gains control. 
62 659° 
Oc AO BS 0 6 660 TSTW GBPBSW_USERS (RO) : is it in use? 
Sh 6 661 BEQL SCAN ; EQL no, se cont scan 
52 24 A0 00 8 67 66 MOVL GBPB$L_GBD_PTR(RO) ,R2 3 get addr of GBD 
6B 66 IFNOWRT #GBD$C~BLN;(R2) ,SCAN,R7 ; 1f not writeable, cont scan | 
0271 664 ASSUME <GBD$B- “BIDS +1> €Q GBD$B_BLN 
0OA13 8F 61 0271 665 CMPW #GBD$C~B1D+<GBD$C_BLN/4a8>,- : is it legit GBD? 
08 5 0 ie 666 GBD$B_BID(R2) 
D 12 7 667 BNEQ SCAN ~ ; skip it if no good 
20 A2 B? 79 = 668 DECW GBD$W_USECNT(R2) ; adjust use count 
i. ta 7C 669 BNEQ SCAN : if <>0 then we could not have 
7E 670 ; been writing so don't invalidate 


—_—_—_—_—_—_—_—_—_—_—_—_—_—_—_—_—_——_é_—X—X———_—— nn ss sn nn ess oe ennn— eens eee - -y 


M 2 
RMSOLSTCH RMS ABORT 1/0 FOR PROCESS DELETE 16-SEP-1984 01:20:35 VAX/VMS Macro V04-00 Page 16 RMSC 
FOL 000 RMSLAST_CHANCE = Clean up write accessed -SEP-1984 9b:38i93 RMS.SRCIJRMSOLSTCH.MAR; 1 . (11) v04- 
10 a2 01 «OC 7 671 MNEGL #1,GBD$L_VBNSEQNUM(°?) ; mark invalid by setting sequence n 
C8 ff : 674 BRB SCAN 3 continue scan of GEPB's 
4 674; 
4 675 ; Check to see if last accessor. If so, then release all buffers in 
284 978 ; in cache. Disassociate from the global section, and release the GBSB and 
0 Se 677 ; associated lock. 
S58¢ en | 
OCOOOO00'EF 16 0284 680 CLN_UP: JSB RMSRELEASE_ GBL_BUFFERS ; Flush cache if last accessor. 
OOOOO000'EF 16 O28A 681 J MSUNMAP_GBL ; Disassociate from section. 
8 90 obs DEQLCK: $DEQ_S ID = GBSBSL_LOCK_ID(R4),- ; Release the global section lock 
90 6 VALBLK = GBSBS$L_LKSB78(R4) ; writing out the value block. 
0S O29F 684 RSB 
O2A0 685 
O2A0 686 . END 
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Symbol table -SEP=1984 16:25:02 CRMS.SRCIRMSOLSTCH.MAR;1 
Q10$_P1 = 0000001C 
Q10$_P = 00000020 
Q10$_P = 00000024 
Q10$_P4 = 00000028 
Q10$_P5 = 000000 f 
Q10$_P6 = 000000 
RDIFAB 0000049 R 01 
RMSBUG eekeekee x 01 
RMSLAST_CHANCE 00000000 RG 01 
RMS SRELERSE GBL_BUFFERS tketeeee 01 
RMSUNMAP_GBL wereeeee = X (1 
RMS$_NORPAL = 000108 1 
RUNDON 0000023 R 01 
SCAN 0000024C R 01 
SS$_IVLOCKID = 00002124 
SYSSCLREF keeneeee GX (01 
SYSSDEQ weeeeeeee GX 01 
SYSSENQW eeekeeee GX 01 
SYSSGETLKIW eeeeeeee GX 01 
SYS$QI0 kkkkkkek 01 
SYSSWAITFR kkekeeee GX 01 
WRITE 00000005 R 01 
anew meaner ene m nn ce + 
:_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- «ABS . 00000000 < 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL an tte NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS 000002A0 (¢ 672.) O01 ¢ 1.) PIC US CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 <¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
Poe woe some mente ween nee neces + 
! Performance indicators ! 
$emwmmomme meme oo wow ewww enon + 
Phase Page faults CPU Time Elapsed Time 
Initialization | 29 00:00:00.11 00:00:00.86 
Command processing 108 00:00:00.70 00:00:04.50 
Pass 516 00:00:20.62 00:01:02.55 
Symbol table sort 0 ee fhe eee Be ed 
Pass 2 135 00:00: 3-78 88:88) 48 
Symbol iable output 16 00:00:00.1 0:00:00.30 
Psect synopsis output 2 es SS 00:00:00.26 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 808 00:00:28.56 00:01:28.62 


The working set jfaie was 1800 pages. 
112941 bytes (221 pages) of virtual memory were used to buffer the intermediate cod 

There were 110 pages of symbol table space allocated to hold 2127 non-local and 10 leet symbols. 
686 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

43 pages of virtual memory were used to define 42 macros. 
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Macro Library name Macros defined 


“$255$DUA28: St .0BJJRMS.MLB;1 1 
“$255$DUA28: SYS.OBJJLIB.MLB;1 

“$255$DUA28: (eye IBISTARLET. MLB; 2 3 
TOTALS (all Libraries) 8 


2356 GETS were required to define 38 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSOLSTCH/OBJ=OBJ$:RMSOLSTCH MSRC$:RMSOLSTCH/UPDATE=(ENHS:RMSOLSTCH) +EXECML$/LIB+LIB$:RMS/LIB 


MS.SRCIRMSOLSTCH.MAR; 1 
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